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-* 
;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
be ALL RIGHTS RESERVED. S 
® 

* THIS iris a FURNISHED — A LICENSE AND MAY BE USED AND COPIED * 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i . F TWARE Y ce 78 
® 

* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. ° 
® ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
-* ® 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
+ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 

-* ® 
® ® 
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ABSTRACT: 


The VAX-11 MACRO assembler translate 
modules for input to the VAX-11 LIN 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 
V03-001 MTROO27 Mike Rhodes 28-F eb-1983 
Reset the expression evetust ton flag after processing 
an immediate if statement (.IIF). 


vO2.06 CNHOO4O Chri 15-Oct-1980 | 
| 


MACRO-32 source code into object 


FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
es 
KER. 


-ENDC ignored PP cel Local” label in conditional suppressed 
code. (SCANER.MAR 02.1 


v0O1.05 RNO023 R. Newland 2-Nov-1979 
New message ¢ codes to get error message from system 
message f 

v0O1.05 RNOO18 20-Oct-1979 


ewland 
Get arguments a a3 eTDENTICAL/. IF DIFFERENT” cena cased | 
before making comparison. | 
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v04-000 5-SEP-1984 01:46:51 MACRO.SRCJACTIF .MAR; 1 (1) 

0000 58 ; 

0000 59 ; v01.04 RNOO11 R. Newland 26-Sep-1979 | 

44 ¢ ; New Librarian support - remove truncation error 

0000 6¢ : v01.03 RNOO10 R. Newland 5-Sep-1979 

43 o7 : Multipage IF arguments 

itd 65 : v01.02 RNOOOS R. Newland 14-Aug-1979 

44 66 : Variable symbol storage and remove .ALIGN LONG statements 

0000 68 :-- 


npeenenneenaiemimanpnreaneteninasindmimennapgareaineniiamaiaseas : 7. J 
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MACSACTIF CONDITIONAL STATEMENT PROCESSOR 1 ~$EP-1984 1:59:08 VAX/ViKS Macro V04-00 Page 3 | 
v04-000 DECLARATIONS =SEP-1984 01:46:51 EMACRO. SRe ACTIF MAR; 1 (2) 
000 70 ~SBTTL DECLARATIONS 
$600 fi 3 
44 i ; INCLUDE FILES: 
000 i> 3 
0000 74 
000 tf? 3 
000 76 ; MACROS: | 
000 “(3 | 
0000 78 
0000 ©8679 SMAC_CTLFLGDEF ;DEFINE CONTROL FLAGS 
0000 80 SMAC~GENVALDEF ;DEFINE GENERAL VALUES 
9000 81 MAC_INTCODDEF sDEFINE INT. CODES 
00 : SMAC~SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
0000 8 SMAC_MNBDEF ; Define MXB offse 
0008 84 SMACASGDEF ; Define message cones 
0008 85 
0008 86 ; 
0008 87 ; EQUATED SYMBOLS: 
0008 88 ; 
0008 89 
0008 §=8=—«90' gk 
0008 91 ; OWN STORAGE: | 
0008 38 3 
0008 «=—s«9 
00000009 36 -PSECT MACSRO_DATA,NOEXE ,NOWRT,GBL,LONG 
0000 96 ;++ 
0000 97 ; THESE ARE THE IF CONDITION NAMES . THE VALUE_IS THE NAME OF | 
0000 «98 ; THE ROUTINE TO CALL. IF THE ADDRESS HAS BIT 31 SET, THEN 
0000 (99: sx THE ROUTINE MUST EVALUATE ITS OWN CONDITION, RATHER THAN | 
0000 100 ; LETTING THE PARSER DO IT. 
0000 101 ; | 
0000 10¢ i-- 
0000 10 
80000000 0000 104 IF i a = *x80000000 sHIGH BIT IF SPECIAL 
00000000 0000 105 INSYMP = 0 
0000 106 | 
0000 107 SMAC_INSERT_SYX EQ IF EQUAL sEQUAL TO ZERO 
000C 108 SMACINSERT-SYX EQUAL, IF =EQUAL | SEQUAL TO ZERO 
001B 109 SMAC_INSERT_SYX NE IF “NOT ;NOT EQUAL TO ZERO 
00¢7 110 SMAC~INSERT-SYX NOT_EQUAL Ir NOT. EQUAL :NOT EQUAL TO ZERO 
003A 111 SMACTINSERT SY T IF GREAT :GREATER THAN ZERO 
0046 112 $MAC~INSERT-SYX GREATER, IF =GREATER ;GREATER THAN ZERO 
0057 «113 SMAC_INSERT_SYX LE IF-LESS_EQU 3LESS THAN OR EQUAL ZERO 
63 «114 “INSERT-SYX LESS_EQUAL7IF LESS. EQUAL :LESS THAN OR EQUAL ZERO 
0077 +115 MAC_INSERT_SYX G IF _GTR_EQUAL ;GREATER THAN OR EQUAL ZERO 
0083 116 SMAC_INSERT_SYX GREATER _EQOAL, IF_GTR_EQUAL ;GREATER THAN OR EQUAL ZERO 
009A 117 SMAC_INSERT_SYX L F_L HAN SLESS THAN ZERO 
00OA6 118 SMAC~INSERT-SYX LESS_THAN IF LESS_ THAN sLESS THAN ZERO 
00B9 119 SMAC_INSERT_SYX If DEFINED!IF_SPECIAL  ;DEFINED | 
00c5 120 SMAC_INSERT_SYX DEFINED, IFDEFINED'IF-SPECIAL ;DEFI 
0006 = 121 SMAC_INSERT-SYX N IF-NOT_DEFINED'IF_ SPECIAL;NOT NED 
00OE3 1 é SMAC"INSERT_SYX NOT “DEFINED, IF“NOT DEFINED! IF_SPECIAL ; PHOT DEFINED 
OOF 8 1 $MAC~ INSERT~SYX F_BLANK!IF_SPECIAL BLANK 
O19 124 MAC INSERT_SYX BLANK, i “BLANK! IF “SPECIAL ;BLANK 
112 125 SMAC"INSERT-SYX NB NOT BLANR'IF SPECIAL ;NOT BLAN 
O11E 126 $MAC~INSERT-SYX NOT BLANK. te ONOT _BLANK:TF_SPECIAL ;NOT BLANK 
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ONDITIONAL STATEMENT PROCESSOR 
ECLARATIONS 
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D 
00000000 


-000 


te 
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YY 
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: NO SPECIAL SCANNING 


OOOO'CF 56 D0 40$: MOVL R6,W*MACSGL_IF CNDPT ;SET CONDITION TEST POINTER 


68 00800040 8F CA 50$: BICL2 #FLGSM_ IFSTAT!FLGSM_EVALEXPR, (R11) :NOT IN_AN_IF AND DO 
NOT OUTPUT EXPRESSIONS 
6B 04 8 Biste #FLGSM_COMPEXPR,(R11) ;ASSUME COMPILE TIME EXPRESSION 


p++ 
; FUNCTIONAL DESCRIPTION: 


IFSYNT IS CALLED IF THERE IS A SYNTAX ERROR IN A CONDITI 
ASSEMBLY STATEMENT. THE ERROR IS REPORTED, AND THE COND 
IS THEN PROCESSED. 


ONAL 
ITION 


IFSYNT: sIF_LSTATE = IF_HEAD ERRO2 
* smac ERR IFDIRSYNX : Get the message code 
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v04-000 IFHD1 CONDITIONAL ASSEMBLY PROCESSOR -SEP-1984 01:46: YMACRO SRe ACTIF.MAR;1 (3) | 
000 154 -SBTTL IFHD1 CONDITIONAL ASSEMBLY PROCESSOR 
a090 155 | 
99 0 156; 
909 137 3 FUNCTIONAL DESCRIPTION 
0000 159; "IFHD1' IS CALLED WHEN A '.IF" CONDITIONAL ASSEMBLY IS 
0000 160; DETECTED. It SCANS THE CONDITION ITSELF, AND IT MOST 
0000 161: CASES DIF,IDN,DF,NDF ARE THE EXCEPTIONS) IT ALLOWS 
0000 16 : THE SAR SER at O EVALUATE THE ASSOCIATED EXPRESSION. 
0000 163: 
0000 164 i== 
9000 165 
000 166 IFHD1 HEAD = KIF 
QOOO'CF O10F'CF 9E 0000 167 MOVAB w*IS TRUE. gHoMACSGL_ IF _enbPT ; PRESET IN CASE OF ERROR 
FFF6* 30 0007 168 BSBW MACSSYM i SCAN THE CONDITION CODE 
0B 50 €—9 OO0A 169 BLBC R ;BRANCH IF NO CONDITION FOUND 
55 0168°CF 9E 000D 170 MOVAB W*{F COND NAMES ,R5 : Point to condition names 
FFEB’ 30 0012 171 BSBW MACSSRC_LIST LONK UP THE ONE WE SCANNED 
08 50 £8 0015 \7¢ BLBS _—RO,2 ;BRA NCH IF FOUN 
0018 173 10$: SHAC ERR, IETF COND, Illegal IF condition 
FFEO' 31 OO1D i BRW ACSERR ISSUE MESSAGE AND RETURN | 
56 05 A1 DO 0020 175 208: MOVL Ke ti VACERI), R6 :GET THE ROUTINE ADDRESS 
FFD9' 30 0 1 BSBW MACSSRIPSP :SKIP SPACES 
2c SA 91 O 1 CMPB RIO. #*A/,/ ‘NEXT CHAR A COMMA? | 
12 0 1 BNEQ 0 SIF NEQ NO 
FFD1' 30 0 1 BSBW BACSGETCHR TYES==SKIP IT 
2256 iF €5 O 180 30S: BBCC = #31, R6,40$ :BRANCH IF NO SPECIAL SCAN | 
16 0 1 J$B (R65 :YES=-DO SPECIAL SCAN | 
2168 16 £0 0 1 BBS #FLGSV_IIF,(R11),50$ :1S THIS A .IIF? 
OOOO'cF O000'CF DO O 1 MOVL § W*MACSGL_LINEPT,W*MACSGL_ERRPT ;NO--SAVE LINE POSITION 
FFBD' 30 0 1 BSBW MAC$SK TBSP TSKIP SPACES | 
O SA 91 0 1 CHPB RIO FER tWE SHOULD BE AT END OF LINE 
12 13 0 1 BEQ SIF EQL ALL Is WELL ! 
0 1 SHAC ERR IFDIRSYNX ; No--IF d ee tive. eirets" error 
FFBO' 30 O 1 BSBW MACSERRORLN i 1SSUE MESSAGE T | 
5A 0DCtCOKAsCOO 1 MOVZBL #CR,R10 FORCE NEW LI ne. 
05 11 0 BRB 50$ CON NT INUE 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
1 
0 1 
0 2 
0 
0 
0 
0 
0 
0 2 


ee ee eee ee eee eee w joj ololololeoleiloleoleoleolelololololq) 
—DOODOODOOSOOC O00 0000 OOOOH W00 000000000900 00 SN NNN 
ODODWNOA MEW OOO NAME WW 0 OONOAUE WN O OONOUS 
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4042000 tat CONDITIONAL ASSEMBLY PROCESSOR "9-8 P=1984 01:46: 08 YRACRO. SRCJACTIF MAR; 1 ° (3) Sy 
FF93" 30 O06A 31) BSBW MACSERRORLN ISSUE MESSAGE TO PASS 2 PS 

00 11 006d 12 BRB IF SPROCESS THE CONDITIONAL ASSEMBLY 4 

RD 

RD 

RD 

RD 
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04-000 IF DIRECTIVE ROUTINES ~REp-19B6 OLizorst MACHO See TACT TS Mage res 


~SBTTL IF DIRECTIVE ROUTINES 


++ 
; FUNCTIONAL DESCRIPTION: 


3 THIS IS THE HEART OF THE ad Mrs ae by PROCESSOR. THIS 
: ie A N FALSE. ¢ THE oft be OF THE IF EXPRESSION AND FALLS INTO 


IF:: STATE = IF_HEAD EXPR DEOL 
MOVL W*MACSAL VALSTACK=4CR71, ko: [get rite EXPRESS 
SINTOUT ty INTs PRIL THE EXPRESSION. LUE 
B V_CORPERPR, (R11), 108 RORANCH IF COMPILE TIME EXPRESSION 


56 = FFFC'CF47)~=— 00 


08 68 O02 €0 B 
$SMAC “ERR TEERP PRNAB No--get the o pessoge code 
FF77" 30 SBW MACSER ROREY ISSUE ERROR MESSAG 
50 56 00 10$: MOVL R6,RO COPY THE VALUE FOR CONDITION CHECKER 
IFSPL:: STATE = IF_HEAD DEOL 
0000' DF 16 = JSB aW*MACSGL_IF_CNDPT ‘CALL THE CONDITION CHECKER 
109 §=30 BSBW IF_LIST_CND_CHK ECK IF LISTING CONDITION 
0000'CF D4 CLRL W*MACS$GC_IF_COUNT “CLEAR COUNT CONDIT ONALS ANITHIN FALSE CO 
01 0000'CF E8 BLBS W*MACSGL_IF_VALUE,10$ BRANCH IF RESULT IS FALSE 
05 RSB ; TRUE=-RETURN TO ASSEMBLE CODE 
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10$: 


MACSACTIF 
v04-000 


L_STATEMENT PROCESSOR 
UTINES 


: SCAN THROUGH THE 


; (THE MATCHING .ENDC) 


SCAN_FALSE CODE: 


SINTOUT_X INTS_CHKL 


FALSE CODE, LOOKING 


59:08 YAX/VMS Macro V04-00 p 
ais} tac a 


MACRO.SRCJACTIF .MAR; 1 


FOR A CHANCE TO START ASSEMBLING 


O1CC 38 BSBw IF _LIST_CND_CHK ;SEE ABOUT LISTING CONDITIONALS 
FFSD" 30 10$: BSBW MACTSSYMSCNUP Check for (non-local) Label 
10 50 ge BLBS RO,20$ 
FF57" 30 BSBW © MACSLCLSKIP iTry for local Label 
2F 50 9 BLBC RO,40$ 
FF51" 30 BSBW MACSSKIPSP 
3A «OSA 1 CMPB R10,#*A/:/ sEnsure presence of Colon 
OA 13 BEQL 25$ 
25.11 B28 40$ 
FF47* 30 208: BSBW MACSSKIPSP :Skip any spaces 
3A COSACSQ3*'M CMPB R10,#*A/:/ sPresence of Colon indicates label 
oS 862 BNEQ 30$ 
us -% +7 25$: psoe aay :Found a label -- go back for more 
55 O1FA'CF 9E 30$ MOVAB W*IF_SPL Fe Twones.. R5 iWe have a symbol -- look it up 
FF35° 30 BSBW MACSSRC CIS 
OD 50 E9 BLBC RO,4 :8RANCH IF NOT FOUN 
05 Al DD PUSHL SYMSL VAL (R1) FOUND=-STACK ROUTINE A DRESS 
FF2C* 30 BSBW MACSCREF DIR i CROSS-REF IT IF EREFF ING BROS TSNES 


;(R1 POINTS TO SYMBOL BL 
;PRINT SOURCE LINES NOT ASSEMBLED 


; BRANCH TO THE ROUTINE FOR THE SPECIAL SYMBOL. THE ROUTINE WILL EITHER 
; BRANCH BACK TO SCAN_FALSE CODE TO CONTINUE LOOKING sages TRUTHE, OR 
; IT WILL RETURN IF IT IS TIME TO ASSEMBLE CODE AGAIN 


R 3GO0 TO THE SPECIAL ROUTINE 
40$: PUSHL WeACSGL INPUTP ; STACK INPUT BLOCK POINTER 
;FORCE NEW LINE 
MACEGET IT 
CMPL UomarsoL” INpure, (SP)+ WAS THERE A CONTEXT CHANGE? 
BEQL SCAN_FALSE_CODE thee SCANNING 


DOON AU EWN 0 OD NAME WN O OD NAME WN OOONAUIE Win 
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v06-000 "ITF’ CONDITION ROUTINES--EQ,NE,GT,LE,GE, 5-SEP=1984 01:46:51 [CMACRO.SRCJACTIF.MAR;1 (7). 
FF 308 IF_LESS EQUAL: 
50S oft 88 tite | ES :CHECK CONDITION 
oc 15 0101 310 BLEG 1S_TRUE ‘IF LEQ IS TRUE 
es 3 1 BRB IS"FALSE TELSE IS FALSE 
105 i IF _LESS_THAN: 
50 DS (01 5 14 TSTL. RO :CHECK CONDITION 
06 19 01 15 BLSS §_IS_TRUE tIF LSS IS TRUE 
08 11 0109 16 BRB IS"FALSE TELSE IS FALSE 
the 18 IF _GTR_EQUAL: 
50. oS 108 1 TSTL RO sCHECK CONDITION 
04 19 0100 0 BLSS _‘_IS_FALSE ‘IF LSS THEN FALSE 
10 1 ;**; BRB 1S" TRUE TELSE 1S TRUE 
010F § 1S_ TRUE: 
50 D4 O10F 4 CLRL OR :SET FOR TRUTH 
03 «11 oii} 3 BRB TRUE_FALSE 
O13 7 IS_FALSE 
50 01 9A 011 8 VZBL #1,R0 ;SET FOR FALSE 
0116 9 TRUE_FALSE: 
51 QO0O'CF 01 9C 0116 0 OTL #1,W*MACSGL_IF -VALUE. R1 ;MAKE ROOM FOR NEW RESUL 
Oooo'cF «6 551——«sSO—siCs«OIC S331 BISL3 RO.R1,W°MACSGL-IF VALUE :OR IN NEW CONDITION AND STORE IT 
0000'CF 06 0122 3¢ INCL W°MACSGL_IF_LEVEL™ [COUNT NEW NESTING LEVEL 
20 OO00'CF D1 0126 33 CMPL  W*MACSGL—IF ~tEVEL, #32 :NESTING EXCEEDED? 
08 15 0128 334 BLEG ;1F LEQ NO 
8168 35 _— ERR IFLEVLXCED Yes--get message code 
FECB' 31 0132 336 BRW MACSERRORLN TISSUE MESSAGE T PASS 2 AND RETURN 
05 0135 337 108:  RSB 


FFDS CF = o9F 
FFDS CF =o9F 
08 11 

FFCF CF 8 9F 
FEC? CF OF 
FEBS’ 30 

0B 50 =«€8 
8E BF 1 
FEA7* 31 
FEA4' 30 
0550 €9 
00 ~—£0 
Q000'CF 8EDO 
8E v5 

05 

8E D5 
QO00'CF 8EDO 
05 
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T PROCESSOR 1 mi ots 9 1:59: : years Macro _V04-00 Page 
NES==IF DEFINED “SEP=1984 01:46: EMACRO. SRe ACTIF MAR; 1 


~SBTTL ‘IF* CONDITION ROUTINES=-IF DEFINED 


=z 
-_—m 
—Z 
~~ 


soe 
; FUNCTIONAL DESCRIPTION: 
Hts ROUTINE SETS THE POINTER MACSGL_IF_CNDPT TO POINT 


; O IS_TRUE OR IS FALSE, DEPENDING ON WHETHER THE SYMBOL 
: I$ DEFINED OR NOT. 
IF _DEFINED: 
PUSHAB W*IS_TRUE s1F DEFINED 
PUSHAB W*IS~FALSE SIF NOT DEFINED 
BRB IF_OF 
IF _NOT_DEFINED: 
PUSHAB W*IS_FALSE z1F DEFINED 
PUSHAB W*IS~TRUE :I1F NOT DEFINED 
IF_DF: BSBW MACSSYMSCNUP SCAN A SYMBOL 
BLBS _—RO, 10$ ‘BRANCH IF ate SCANNED ONE 
SMAC_ERR ILLIFCOND : No--get code 
CMPL” (SP)+,(SP)+ :CLEAR ROUTINE. DDRESSES 
BRW MACSERRORLN ;ISSUE TO PASS 2 AND RETURN 
10$ BSBW MACS$SRCUSRSYMTB : SEARCH SYMBOL TABLE FOR IT 
BLBC _—-RO, 208 “BRANCH IF NOT FOUND 
BBS #SYMSV DEF. Syms FLAG(R15, 30$ NBRANCH IF SYMBOL IS DEFINED 
20$: POPL W*MACSGL_I pT :NOT DEFINED=-GET RESULT 
Ist tsp)s 'CLEAR OTHER RESULT 
30$: TSTL CLE 
GET 


AR_NOT gti RESULT 
DEFINED RESUL 


(SP)+ 
POPL § W°MACSGL_IF_CNDPT 
RSB 
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MACSACTIF CONDITIONAL STAT 1:59:08 cred yg Macro Vv04-00 Page 12. 
v04-000 "IF" CONDITION ROUTINES=-IF BLANK mies 8:28 08 ERACRO SRe ACTIF.MAR; 1 . (9) | 
17% 3 ~SBTTL 'IF" CONDITION ROUTINES=-IF BLANK 
174 75 34+ | 
16 6 3 FUNCTIONAL DESCRIPTION: 
b1f6 328 THIS ROUTINE SETS THE gPOINT ER MACSGL_IF_CNDPT TO POINT 
174 179 ; TO IS_TRUE OR IS FAL DEPENDING ON WHETHER OR NOT THE 
174 HH ; ARGUMENT” IS BLANR OR fore 
0174 ee :-- 
0174 
O76 4 IF BLANK: 
FFO7 CF OF (0174 5 PUSHAB W*IS_TRUE sIF BLA 
FFO7 CF OF 0178 86 PUSHAB W*IS"FALSE :IF NOT BLA 
08 11 O17¢ 87 BRB IF_B 3 JOIN COMMON CODE 
O17E 88 
017E 89 IF_NOT_BLANK: 
FF91 CF OF O17E 90 PUSHAB W*IS_FALSE :1F BLANK 
FF89 CF OF 0182 91 PUSHAB E s1F NOT BLA 
00 68 17 €E3 0186 3 IF_B:  BBCS WFLCSV LESTAT. (R11),.% 1 :FLAG WE KR IN AN IF 
FE73" 30 O18A 39 BSBW MACSMAT_A :SCAN THE ARGUMENT 
00 68 17 #+€E€5 O18D 394 BBCC #FLG$V “TRSTRT. tR11),.4 1 ;NOT IN AN IF MORE 
50 D5 0191 395 TSTL RO sWAS THE MARGUMENT BLANK? 
08 12 0193 396 BNEQ 10$ 31F NEQ NO 
8E 05 0195 397 TSTL (SP)+ sYES=-CLEAR FALSE CONDITION 
0000' CF BED0 O197 398 POPL W*MACSGL_IF_CNDPT 7SET TRUE CONDITION 
O000'CF 8EDO 019D 400 10S: POPL W*MACSGL_IF_CNDPT ;SET FALSE CONDITION 
BE DS O1A2 401 TSTL (SP)+ CLEAR TRUE CONDITION 
05 O1A4 402 RSB 


T 
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1 
1 
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1 
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SEP=19 1:46: 
~SBTTL DIRECTIVE ROUTINES=-IF_IDENTICAL 


p++ 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE DETERMINES WHETHER TWO STRINGS ARE IDENTICAL 
OR NOT, AND SETS THE APPROPRIATE ROUTINE ADDRESS INTO 


; NOT, 
: MACSGL_IF_CNDPT. 


IF IDENTICAL: 
PUSHL. R12 sSAVE R12 


; Allocate memory block 
ADDL3 #MXB$K_BCKSIZ,RO,R6 ; Set pointer to free bytes 


PUSHAB W*IS_TRUE ; TRUE RESU 
PUSHAB W*IS FALSE sFALSE RES 
BRB IF_IBN 3GO0 PROCES 
IF DIFFERENT: 
PUSHL R12 sSAVE R12 
PUSHAB W*IS_FALSE ; TRUE RESULT 
PUSHAB Wipe] RUE s FALSE 
IF_IDN: CLRL R1 3 
BBSS #FLGSV_UPMARG,(R11),.+1 ; Get arg 
BSBW MACSMAC_ARG_SCN :SCAN TH 
PUSHL RO 
BEQL 20$ ;BRANCH IF NULL A 
ADOL3 #MXBSK_BLKSIZ,RO,R1 3; Include header size 
BSBW MACSAL LOCK : 
MOVL R1,MXB$C_PAGES(RO) 3: Save block size in block 


R - § 
MOVC3 (SP) ,W°MACSAB_TMPBUF , (R65 


BSBW § MACSMAT_ARG SCN 
BBCC  #FLGSV_TFSTAT, (R11 
BBCC #FLGS$V“UPMARG, (R11 


POPL R6 :GET LENGTH 0 

50$: CMPL  RO,R6 ZSTRINGS THE SAME LENGTH? 
BNEQ 70$ [IF NEQ NO 
TSTL RO :YES=-ARE THEY BOTH NULL? 
BEQL 608 “IF 
CMPCS R6,(R12),#0,RO,W*MACSAB_TMPBUF ;NO--STRINGS IDENTICAL? 
BNEQ 70$ :1F NEQ'N 

60$ TSTL (SP)+ [CLEAR FAL 
POPL  W*MACSGL_IF_CNDPT :SET TRUE RE 
BRB 80$ :FINISH UP 

70$: POPL  W*MACSGL_IF_CNDPT :STORE FALSE RESULT 
TSTL (SP)¢ :POP FALSE RESULT 

80$: MOVL  R12,RO [GET ADDRESS OF PAG 
BEQL 908 
SUBL2 #MXBS$K_BLKSIZ,RO ; Point to base of b 
BSBW MACSDEAL_BLOCK : and dea 

90$ POPL Rie SRESTORE R12 
RSB : DONE 


RESULT 
ASSUME NULL FIRST ARGUMENT 


STACK THE LENGTH of THE ARG 


ave pointer 
;COPY ARG TO VIRT. MEMORY 
20$:  BBCS  #FLG$V_IFSTAT7(R11),.+1 ;FLAG WITHIN AN IF 

R 'SCAN SECOND ARGUMENT 
),.+17 INO LONGER WITHIN AN IF 
),.+1 ; Return normal 


EQL YES--THEY ARE THE SAME 


:1F EQL NO PAGE ALLOC 
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MACSACTIF CONDITIONAL STATEMENT PROCESSOR 16-SEP-1984 01:59: AX/VMS Macro V04-00 Page 
v04-000 DIRECTIVE ROUTINES--IFF,IFT,1FTF, ENDC ~3ee= 1383 te 246: 08 YRACRO SRE ACTIF.MAR; 1 ° 
4 459 .SBTTL DIRECTIVE ROUTINES=-IFF,IFT,IFTF, ENDC 
4 461 34+ 
‘ 46¢ ; FUNCTIONAL DESCRIPTION: 
4 664: THIS ROUTINE CAN BE CALLED FROM TWO PLACES: 1) THE SCAN_FALSE_CODE 
4 4665: ROUTINE, WHEN IT DETECTS A .IFF WHILE SCANNING FALSE CODE, OR 
4 466 ; 2) FROM T HE PARSER. IT CHECKS THE IF STATUS, AND IF WE ARE 
0224 467: SCANNING FAL SE CODE, IT BRANCHES TO SCAN FALSE CODE TO CONTINUE 
4 468: SCANNING FALSE CODE. IF IT TESTS TRUE, QE RETORN TO THE PARSER 
4 469: TO ASSEMBLE CODE. 
04 = 470: 
4 471 :-- 
0224 Are 
0224 473 IFF:: DIRECTIVE = K F 
SA 10 0324 47% BSBB CHECK_IF_STATUS CHECK 'IF* STATUS 
41 OOOO'CF €8 0226 475 BLBS  W*MACSGL“IF_VALUE, IF _Lst. CND_CHK ;BRANCH IF NOT IN FALSE CODE 
0228 476 GO_SCAN_FALSE: 
FE6F 31 0208 40 BRW SCAN_FALSE_CODE ZELSE CONTINUE SCANNING FALSE CODE 
O22— 479 IFT:: DIRECTIVE = KIFT 
50 10 O22— 480 BSBB  CHECK_IF_STATUS + CHEC TATUS 
F6 OOOO'CF E8 0230 481 BLBS W*MACSGL“IF VALUE , GO_SCAN_FALSE | ARAN IF WITHIN FALSE 
35 11 0235 48¢ BRB IF _LIST_CND~CHK sELSE RETURN TO ASSEMBLE CODE 
0237 484 IFTF: sDIRECTIVE = KIFTF 
47 10 0237 485 BSBB  s- CHECK_IF STATUS :CHECK ‘IF" STATUS 
2 Oe32 tt) BRB IF_LiST_CND_C 3 CHECK Listing AND RETURN 
0238 488 ENDC :DIRECTIVE = KENDC 
56 OO00'CF 01 C3 0238 489 SUBL3 #1,W*MACSGL_IF_LEVEL,R6 :DECREMENT IF LEVEL AND CHECK 
08 18 0241 490 BGEQ [IF GEQ WIT THIN N IF 
0243 491 SMAC_ERR Sr ; No--get messa 98 
FDBS' 31 0248 49¢ BRW MACSERR S ISSUE MESS SAGE § 2 AND RETURN 
55 O0000'CF 01 C3 0248 493 10S: SUBL3 #1 WeRACSGL IF_COUNT,RS :SEE IF IN NESTED FAC SE CONDITIONAL 
07 19 0251 49% BLSS SIF LSS N 
oo00'cr 55 00 093 495 MOVL R5,W*MACSGL_IF_COUNT :YES==UPDA TE NESTING COUNT 
D1 43611 «0258 «3=496 BRB GO’SCAN FALSE ~ ‘AND CONTINUE SCANNING FALSE CODE 
OO0O'CF 56 DO O25A 497 20S: MOVL RO, OmAtser IF LEVEL [UPDATE IF LEVEL 
50 OO000'CF 01 CB O25F 498 BICL3 1, WeRACSGL IF~ VALUE, RO :PREPARE TO BRING TRUTH INTO HIGH BIT 
0000'cr 50 FF BF 9C 0265 499 OTL a'r AtSGC IF_VALUE’;D0 IT NOW 
026C 500 ;**; BRB TF waisie CND-¢ :CHECK LISTING STATUS AND RETURN 
026¢ 501 
8 | ¢ p++ 
8 oe é ? 3; FUNCTIONAL DESCRIPTION: 
026¢ 505: IF NOT LISTING CONDITIONALS CODE | 1s EMITTED TO PASS 2 TO 
026¢ 506: CLEAR THE LISTING FLAG, MACS$GL_LIST_IT. 
026¢ 507: 
026C 208 :-- 
026¢ 509 
6C 510 IF_LIST_CND_CHK: 
OE 0005'cF €8 026C 511 “BLBS — _W°LSTSG_CONDITION+SYMSL_VAL,CK_EXIT , BRANCH IF LISTING 
74 alg SINTOUT_LW INTS"SETLONG,<#0,#MACSGL_LIST_IT> 
05 O27F 31 CK_EXIT:RSB 
380 14 
0280 515 
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MACSACTIF CONDITIONAL STATEMENT PROCESSOR dt BS 9 91:22 08 AX/VMS Macro v04-00 Page 
v04-000 DIRECTIVE ROUTINES=-IFF,IFT,IFTF, ENDC =SEP-1984 01:46:51 CMACRO.SRCJACTIF.MAR;1 
16 s++ 
i : FUNCTIONAL DESCRIPTION: 
i8 ; THIS ayy ee CHEEKS TO ENSURE WE ARE IN AN IF STATEMENT. 
0; IF WE ARE NOT, IT ISSUES AN ERROR MESSAGE TO PASS 
0 1: AND RETURNS. IF WE ARE, THEN IF WE ARE SKIPPING CODE, THE 
9 g ; STACK 1S POPPED AND WE C ERANEN TO SCAN_FALSE_CODE TO E ONT TUE 
3 SKIPPING CODE. 
bss 4; 
0280 5 § 
80 3 CHECK_IF STATUS: 
QO0O'CF D5 8 TSTL W*MACSGL_IF_LEVEL ;ARE WE IN AN IF? 
08 +14 84 529 B s1F GTR YES 
0286 530 SMAC_ERR gd ws ;_No oes messa . code 
FD72° 31 0288 531 BRW MACSERR + ISSUE MESSAGE RETURN 
O000'CF DS O BE 33¢ 10$: TSTL WARACSOL iF _COUNT S INSIDE NESTED FALSE CONDITIONAL? 
05 15 029 53 BLEQ 20$ 31F LEQ NO 
BE 05 0294 534 TSTL (SP)+ :YES=-CLEAR RETU 
FEOS §=©931 «0296 «= 535 BRW SCAN_FALSE_CODE sAND CONTINUE SCANNING FALSE CODE 
05 0299 536 20$: RSB 
OSA 537 
029A 538 ;++ 
BSaa 44 3 FUNCTIONAL DESCRIPTION: 
029A 541; THIS ROUTINE IS CALLED IF A sEN D STATMENT IS ENCOUNTERED 
029A 242 : WHILE SCANNING THE FALSE CONDITIONAL CODE. 
029A 543; 
029A 544 ;-- 
029A 545 
029A 546 IF_ERROR: 
O0000'CF D4 029A 547 CLRL W*MAC$GL_IF_VALUE sEVERYTHING IS TRUE 
029E 548 SAAC _ERR UNTERMCOND~ : Get message code 
FDSA' 31 O2A3 549 BRW MACSERRORLN :ISSUE MESSAGE AND RETURN 
02A6 550 
02A6 551 ++ 
beng 226 : FUNCTIONAL DESCRIPTION: 
0206 «6554: THIS ROUTINE IS CALLED IF A .IF STATEMENT IS ENCOUNTERED 
0206 «555: WHILE SCANNING THE FALSE CONDITION CODE. 
02A6 556; 
02A6 557 ;-- 
02A6 558 
Bs A6 559 IF_IN_AN_I 
QO0O'CF D6 02A6 560 INci W*MACSGL_IF_COUNT sBUMP FALSE CONDITIONAL NESTING COUNT 
FOFO 31 O2AA 561 SCAN_FALSE_CODE [CONTINUE SCANNING FALSE CODE 


M15 | 
MACSACTIF CONDITIONAL STATEMENT PROCESSOR 1 = SEP 1984 Ot: 59: :08 AX/VMS Macro V04-00 Page 16 
v04=000 -IIF DIRECTIVE ROUTINES “SEP-1984 01:46:51 CMACRO.SRCJACTIF.MAR;1 (12) | 
AD 563 .SBTTL LIF DIRECTIVE ROUTINES | 
AD 564 
AD 65 ;++ | 
AD 66 : FUNCTIONAL DESCRIPTION: 
AD 568: 1IF IS CALLED WHEN A .IIF DIRECTIVE IS DETECTED. THE IIF_HEAD 
AD $9 ; IS SCANNED. THE PARSER WILL THEN CALL IIF1 TO FINISH PROCESSING 
O2AD 0: THE .1IF DIRECTIVE. 
O2AD 571: 
O2AD es — 
O2AD 7 
6 AD 574 LIF: s1IF_HEAD = KIIF 
00 68 16 53 AD 575 BBCS #FLGSV_IIF,(R11),.+1 sFLAG THIS IS .IIF 
FD4C «= 30:«02B1Ss«S57%6 BSBW  =srIFHD1 ~ :SCAN THE CONDITION 
00 68 «16 ES 0284 577 BBCC #FLGS$V_IIF, (RIN), +1 [CLEAR .IIF FLAG 
FFBI 1 0 Bg 378 BRW IF _LIST_CND_C ‘CHECK LISTING AND RETURN 
0286 50 LIF1:: -IIF_STAT = IIF_HEAD EXPR DCOMMA 
08 68 02 ~ = €0 288 581 B #FLGSV COMPEXPR, (R11), 108 ; iBRANCH IF COMPILE TIME EXPRESSION 
O2BF 256 $MAC_ERR A Ease : No--get pags 9° code 
FD39" 30 O3c4 58 BSBW”  MACSERR ISSUE T0 ASS 
50 FFFC'CF47 DO O02C7 584 10$:  MOVL UMACSAC RUALSTACK=4CR71. RO: Ger HE VALUE 
0000'DF 16 O2cd 585 JSB aw*MAC$GC_IF_CNDPT :CALL THE ROUTINE TO EVALUATE CONDITION 
50 QOO000'CF 00 0201 586 MOVL_ W*MACSGL_IF_VALUE,RO :GET “THE ‘IF’ VA 
51 50 01 CB 0206 587 BICL3 RO,R [SET TO BRING TRUTH INTO HI BIT 
OOOO'CcF 51 FF BF 9C ODA 588 ROTL #-1,R1,W*MACSGL_IF_VALUE’ ;DO 19 AND STO 
0000'CF D7? O2E1 589 DECL  W*MACSGL_IF_LEVEL :bROP DOWN AN IF LEVEL 
0D 50 E€8 O2E5 590 BLBS e ;BRANCH IF FALSE 
0€ 11 OE 391 BRB 11f_TROE :GO TO TRUE EXIT 
O2EA 298 LIF 2:: ;11F STAT = 11F HEAD DCOMMA 
00000113"8F O000'CF 01 O2EA 59% CMPL W*MACSGL_IF_CNDPT,#IS_FALSE 7 UAS CONDITION FALSE? 
03 02F3 595 BNEQ  IIF_TRUE™ SBRANCH IF NOT 
O2F5 596 IIF_FALSE: 
02F5 346597 MOVZBL #CR,R10 :FORCE NEW LINE 
O2F8 598 IIF_TRUE: 
02F8 599 BBCS § #FLG$V_BOL, (R11) :SET BOL FLAG 
ere 600 BBCC  #FLGS$VOPRND D- (RII). “NOT IN OPERAND FIELD 
9300 BBCS #FLGSVZEVALEXPR, (R i a ;ALLOW EXPRESSION EVALUATION AGAIN. 
0305 
0305 END | 
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MACSACTIF CONDITIONAL STATEMENT PROCESSOR 1g-S68-1986 01:39:08 pases Macro v04-00 Page 18 
Symbol table “SEP=1984 01:46:51 CMACRO.SRCJACTIF MAR; 1 (12) 
INT$S_ADD = 00000001 INTS_WRN = 00000038 MXBSL_LINK 000000 
LNTS_AND = SO b OOS INT$_XOR = ete MXBSL_PAGES 000004 
INT$S"ASH = 00000008 1$_FALSE OO00113 R 4 OB$K-BUFSIZ, = 00000200 
TS_ASN = 0000000C IS_ TRUE OOOO10F R 4 OPFSM_LASTOPR = 00002000 
INT$_AUGPC = 0000000D LSTSG_CONDITION eeeeeee xX 04 OPFSM_OPTEXP = BORD boy 
INT$_BDST = QOOO000E LSTSK_BUFSIZ == 888000 6 OPF$V_LASTOPR = 0000000D 
INTS_CHKL = 9000000F LSTSK_L_P_PAGE = 0000003C OPF$V_OPTEXP = aia ts 
INTS_DIV = 00000004 LSTSK_TITCE_SIZ= BBO bp 8 PSC$B_NAME 000004 
INTS_END = 00000010 MAB$B_ARGNO 0000005 PSC$B_SEG 0000000C 
INTS_EPT = BOR RBT MABS$B_NAME 00000004 PSC$B_UNUSED 4444 
INTS_ERR = 0000 Bi¢ MABSK_BLKSIZ 0000000C PSC$K_BLKSIZ BR ORO oe 
INTS_ETX = ait MABSL_DVPT 880808 PSC$K_NO_OPTNS = Q0Q00000A 
INTS_FNEWL = 00000014 MABSL_LINK 00000 PSC$L_CURLOC 0000000F 
INTS_ILG = 00000000 MABSW_DVLEN 00000006 PSCSL_LINK 00000000 
INTS_INFO = QO000003A MACSAB_TMPBUF eereeeer = X 04 PSC$L_MAXLGTH 00000005 
INTS_LGLAB = 00000015 MACSALC_BLOCK eeeeeeee KX 04 PSC$M_ABS = FFFFFFF? 
INTS_MACL = 00000016 MACSAL_VALSTACK ‘teeeeee xX 04 PSC$M_ALIGNFLG = 00004000 
iNTS_MUL = 00000005 MACSCREF _ eeetereee =X 04 PSCSM_ALLOPTNS = QOQOO3FF 
INT$S_NEG = 00000006 MACSDEAL_ BLOCK teereee XK 04 PSCSM_BYTE = 00004000 
INTS_NEWL = 00000017 MACSERRORL eererere = X 04 PSC$M_CON = FFFFFFFB 
INTS_NEWP = 00000018 MACSERRORPT eeteeere =X 04 PSC$M_DEFAULT = 000001C8 
INT$_NOT = 00000007 MACSGETCHR eetereee KX 04 PSCSM_EXE = 000000C0 
INT$_OP = 00000019 MACSGL_ERRPT aereeeee X04 PSC$M_GBL = 00000010 
INT$_OR = 00000008 MACSSL_IF_CNDPT seteeeee YX 04 PSCS$M_LCL = FFFFFFEF 
INT$_PRIL = QOOOO0IA MACSGL_IF_COUNT eeeeeeee YX 04 PSCS$M_LIB = 00000002 
INTS_PRT = 00000018 MACSGL_IF_LEVEL ‘teeeeeer xX 04 PSC$M_LONG = 00004800 
INT$_PSECT = 0000001C MACSGL-IF"VALUE *eeeeeee xX 04 PSCSM_NOEXE = FREFFFBF 
INTS_REDEF = 0000001D MACS$GL_INPUTP eeeeereer X04 PSC$M_NOPIC = FFFFFFFE 
INTS_RE = 0000001E MACSGL_LINEPT eereeere xX 04 PSC$M_NORD = FFEFFF7F 
INTS_REST = 0000001F MACSGL“LIST_IT steewere YX 04 PSC$M_NOSHR = FFFFEFDF 
NT$_SAME = 00000009 MACSINTOUT_T_LW eeeeeeee KX 04 PSCS$M_NOVEC = FFFFFDFF 
Ni3_SAVE = 00000020 MACSINTOUT_2_LW wteeeeee KX 04 SC$M_NOWRT = FFFFFEFF 
INTS_SBTTL = 00000021 MACSINTOUT aeeerere =X = 04 CSM_OVR = 00000004 
INTS_SETFLAG = 0000002 MACSLCLSKI eeterere XK 04 PSC$M_PAGE = 00006400 
INTS_SETLONG = 0000002 MACSMAC_ARG_SCN *tteeeee XY 04 CSM_PIC = 00009001 
INT$_SPIC = 00000024 MACSSKIPS eeterere Xx 04 PSC$M_ QUAD = 00004C00 
INT$S_SPID = 00000025 MACSSRCUSRSYMTB teeeeeee =X = 04 SCSM_RD = 00000080 
INT$_STIB = 00000026 MACSSRC_LIST eereeeee XK 04 PSCS$M_REL = 00000008 
INT$_STIL = 00000028 MACSSYMSCNUP aererere = X = 04 PSCS$M_SHR = 00000020 
INT$S_STIW = 00000027 MACS$_IFDIRSYNX = 00709092 PSC$M_USR = FFFFFFFD 
INTS_STKEPT = 00000029 MACS_IFEXPRNABS= 007D909A PSCSM_VEC = 00000200 
INTS_STKG = 0000002A MACS_IFLEVLXCED= 007D90A2 PSC$M_WORD = 00004400 
INTS_STKL = 00000028 MAC$_ILLIFCOND = 007D90DA PSC$M_WRT = 00000180 
INTS_STKPC = 0000002C MACS_NOTINANIF = 0709186 PSC$S_ALIGNMENT= eae 
INTS_STKS = 0000002D MACS_UNTERMCOND= T6943 PSC$V_ALIGNFLG = QO00000E 
INT$_STOB = 00000034 MAC_SUBSYS = BOO 19 PSCS$V_ALIGNMENT= Q000000A 
INTS_STOL = 000000 3 MNBSB_ARGCT 000001 PSCSV_EXE = 00000006 
INTS_STOW = 000000 MNB$B_NAME tits ed PSC$V_GBL = et 
pute. 3ks = 0000002F MNBSK_BLKSIZ 000001 PSC$V_LIB = 00000001 
INTS_STRL = 00000031 $L_ARGP 000001 PSCS$V_OVR = ef 
INTS_STRSB = aia ; MNBSL_CRSYMF 000001 PSC$V_PIC = aaa tt 
INTS_STRSW = 03 $L-LI 0000000 PSC$V_RD = 00000007 
INTS_STRW z ieee ty MNBSL_PAGC 009000F PSC$V_REL = 000 S383 
INT$_STSB = 000 § MNBSL~PAGP Ronan PSC$V_SHR 2 $8 0005 
INTS_STSW = 0000003 MNBSL_TXTP 00000° PSCS$V_VEC = 0009 
INT$_SUB = QO00000A $W_FLAG 0000009 PSCS$V_WRT = 00000008 
INTS$_SUME = 00000039 MXB$K_BLKSIZ 0000008 PSC$W_FLAG 0000009 
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PSC$W_OPTIONS 800008 D x2 = 0000000F 
RDXS$SV_BINARY = QO 88 
RDX$V_DECIMAL = 00000 
RDX$V_DOUBLE = 8 $ 0 
RDX$V_FLOAT = 00000004 
RDX$V_GFLOAT = 8 Bey 
RDXSV_HEX = 0000 
RDXSV_HFLOAT = 0000000 
RD OCTAL = 00000001 
REGS_PC = 0000000F 
SCAN_FALSE_CODE 0000009D R 04 
SE = BOR OR Fe 
STBSK_PG MISS = QOQOQ00A 
SYMSB_NARE poeReRe 
SYM$B_ SEG 0000000C 
SYM$B_ TOKEN 90000008 
SYM$K_BLKSIZ 0000000D 
SYMSK-MAXLEN = 0900001F 
SYMSK_TWOCOL = 00000010 
SYMS$L_LINK 00000000 
SYMSL_VAL 00000005 
SYMSM_ABS = 00000010 
SYMSM_ASN = 00000100 
SYMSM_CRFO = 00002000 
SYMSM_DEBUG = 00000020 
SYMSM_DEF = 00000001 
SYMSM_DELMAC = 00000200 
SYMSM_EPT = 00000200 
SYMSM_EXTRN = 00000008 
SYMSM_GLOBL = 00000004 
SYMSM_LOCAL = 00000040 
SYMSM_ = 00000400 
SYMSM_REF = 00000080 
SYMSM_RELPSECT = 00000800 
SYMSM_SUPR = 00004000 
SYMSM_WEAK = 000000 
SYMSM_XCRF = 00001000 
SYM$V_ABS = 00000004 
SYM$V_ASN = 00000008 
SYMSV_CRFO = 00000000 
SYM$V_DEBUG = 00000005 
V_DEF = 00000000 
SYMSV_DELMAC = 00000009 
MSV_EPT = sisal 
SYMSV~EXTRN = 0000000 
SYM$V_GLOBL = 00000002 
SYMSV_LOCAL = 00000006 
SYM$V_ODBG = 0000000A 
YMSV_REF = 00000007 
SYM$SV_RELPSECT = Sonn te 
YMSV_SUPR = 4 E 
SYMSV_WEAK = 01 
SYMSV_XCRF = 000 oe 
SYMSW_FLAG 0000009 
TRUE FALSE i 9000116 R 04 
Wty: = 00000400 
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: Psect synopsis ! 
poaeeene eeececeoe ome & 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 < -) 00 ¢ OQ.) NOPIC 
. BLANK , 00000000 -) QO1¢ 1.) NOPIC 
SABSS 0000001 ( ¢ ) § ( ¢°} NOPIC 
MACSRO_DATA 00000 0§ ( ; ) ( -) NOPIC 
MACSRO_CODE_P1 00000 ( 773.) 04 ¢ 4.) NOPIC 
fore ces eaee Seer eer esas eet 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.04 00:00:01.85 
Command processing 103 Se Be SH 00:00:06.52 
Pass 1 226 BF 8028 94 ee eS Be 
Symbol table sort 0 00:00:00.46 00:00:01. § 
Pass 2 127 00:00:01.20 00:00:06.6 
Symbol table output 34 00:00:00.19 00:00:00.24 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output : 00:00:00.00 00:00:00.00 
Assembler run totals 52 00:00:06.22 00:00:37.21 


The working set Limit was 1500 pages. 


15 pages of virtual memory were used to define 14 macros. 
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Macro Library name Macros defined 

.$255$DUA28: CMACRO.OBJJMACRO.MLB; 1 1 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 

TOTALS (all Libraries) 15 


546 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
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38372 bytes_(75 pages) of virtual memory were used to buffer the intermediat 
There were 30 pages of symbol table space allocated to hold 474 non-local an 
604 source Lines were read in Pass 1, producing 23 object records in Pass 2. 


! Macro Library statistics : 
$emmemeeeeeeeoeeceeceeceeces 


MACRO/LIS=LIS$:ACTIF/OBJ=OBJ$:ACTIF MSRCS$:ACTIF/UPDATE=(ENHS:ACTIF)+LIB$:MACRO/LIB 
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